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CONSULTA 









Muitas pessoas não saem de casa sem 
consultar o horóscopo: Você pode 

não ser uma delas, mas certamente se 
divertirá ouvindo o que o computador 
tem a dizer sobre seu destino. 


Astrologia e horóscopos intrigam as 
pessoas desde a Antiguidade, e têm si- 
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AOS ASTROS 


do motivo de muita controvérsia. Cien- 
tistas de histórico tão distinto, como 
Einstein e Jung, acreditavam na influén- 
cia dos astros sobre as pessoas — hipóte- 
se rejeitada pela maioria dos seus con- 
temporâneos. Estudos multidisciplina- 
res recentes, contudo, têm apresentado 
algumas evidências dificeis de se refu- 
tar. Seja como for, o papel dos astros 
na determinação da personalidade e do 
destino dos seres humanos é uma ques- 


& CARREIRA/DINHEIRO 
[uy CONTATOS/VIAGENS 
LE FAMÍLIA 
= AMOR 
[e PERSONALIDADE 


tão que permanece aberta à discussão. 

Ainda que o tema não o apaixone, 
você poderá passar horas muito agradá- 
veis com seus amigos em torno de um 
computador astrólogo. Para atribuir à 
máquina esse papel, basta digitar O pro- 
grama aqui apresentado. Ele fornecerá 
características de personalidade de ca- 
da um de acordo com seu signo solar, 
assim como as previsões para O próxi- 
mo ano. Estas se dividem em quatro ca- 











tegorias: Dinheiro/Carreira, Conta- 
tos/Viagens, Familia e Amor. 

Como os horóscopos publicados nos 
jornais, o nosso também não leva em 
conta a hora exata do nascimento — da- 
do que os astrólogos usam para forne- 
cer uma leitura mais completa do mapa 
astral de seus clientes. 


OPÇÕES 





O programa pede a data de nascimen- 
to do consulente e diz o seu signo. 
Oferece-lhe, em seguida, duas opções: 
obter um perfil de sua personalidade ou 
as previsões para O próximo ano. 

Se o consulente escolher a primeira 
alternativa, o programa selecionará duas 
sentenças relacionadas ao seu signo, das 
oito que tem guardadas na memória. Se 
optar pela segunda, terá que indicar um 
dos seguintes tópicos: Dinheiro/Carrei- 
ra, Contatos/Viagens, Família e Amor. 
Duas previsões vão então aparecer. A 
máquina tem somente duas guardadas 
para cada tópico (por signo); portanto, 
não haverá nenhuma variação na res- 
posta, se você fizer novamente a mes- 
ma escolha. 





Uma parte do programa é específica 
para cada computador. As linhas DA- 
TA são comuns a todos, embora algu- 
mas alterações sejam necessárias, como 
mostramos mais adiante. 


5 POKE 23658,8B 


10 INPUT "DIGITE SUA DATA DE 
NASCIMENTO (DIA,MES,ANO) *; 
XT, é 


20 IF X<l OR X>31 OR Y<1l OR + 
212 THEN GOTO 10 


40 GOSUB 700 
90 CLS : PRINT AT 1,1;"SEU SI 
GNO E ”; INVERSE 1;AS 


100 PRINT AT 5,1;" VOCE DESEJA 
""PTPAB 3;"<1> PERFIL DE PERSO 
NALIDADE"' TAB 3;"<2> PREVISÃO 
PARA 1988"'TAB 3;"<N> ENTRAR N 
OVA DATA” 

120 LET KS=INKEYS: IF KS<"1º 
OR KS>"5S" AND KS<>"N” THEN 
GOTO 120 

130 IF K5="2" THEN GOTO 300 
140 IF KS="N”" THEN GOTO 10 
150 CLS PRINT AT 0,15-((LEN 


(AS))/2);AS 


160 FOR B=1 TO 2: LET A=INT ( 
RND*4)+1 

170 FOR N=1l TO A: READ BS,C5,D 
8: NEXT N 

180 PRINT '*': PRINT BS'CS DS: 
NEXT B: PAUSE O: GOSUB 700: 
GoTo 500 

300 CLS PRINT AT 8B,8B;"PREVIS 


























| | 
MMNSRERE O CS E a a E RE RENAS 
O PROGRAMA 


AO SOBRE :"''TAB 4;"<1> DINHEI 

RO/CARREIRA"' TAB 4;"<2> CONTAT 

OS/VIAGENS"'TAB 4;"<3> FAMILIA 
"*TAB 4;"<4> AMOR ” 

310 LET KS=INKEYS: IF KS="" 

THEN GOTO 310 

320 IF KS<"1” OR K$>"4” THEN 

GoTo 310 

330 RESTORE (4000+320*(ST-1)): 

FOR T=1l TO (VAL K5S)-1: FOR N=0 

TO 7: READ BS: NEXT N: NEXT T 

335 CLS PRINT AT 1,15-((LEN 

AS)/2);AS' "" 

340 FOR T=0 TO 7: 

PRINT BS': NEXT T 


500 PRINT AT 21, 10;"OUTRA VEZ 
Sm 


READ BS: 


510 IF INKEYS="S" THEN GOTO 

90 

520 IF INKEYS<>"N” THEN GOTO 
510 

330 STOP 

700 FOR T=1 TO 12: RESTORE ( 


1000+250*(T-1)) 
710 READ AS,A,B,C,D 
720 IF B=Y AND X>=A THEN LET 


ST=T: LET T=12: NEXT T: RETURN 
730 IF D=Y AND X<=C THEN LET 
ST=T: LET T=12: NEXT T: RETURN 


740 NEXT T: RETURN 


10 PCLEAR 1 

20 DIM H$(11,7,3),D(3,11),SS(11 
)  P$(11,3,7) 

30 FOR K=0 TO 11:READ SS(K),D(O 
K).D(1L,K),D(2,K),D(3,K) :FOR J= 
O TO 7:FOR L=0 TO 2:READ HS(K,J 
+ L):NEXT L,J,K 

40 FOR K=0 TO 11:FOR J=Q0 TO 3:F 

OR L=0 TO 7:READ PS(K,J,L) :NEXT 
L,J,K 

50 CLS: INPUT"DIGITE SUA DATA DE 
NASCIMENTO (DIA,MES E ANO)”; 

D,.M,A:D=INT(D) :M=INT(M) 

60 IF D<l OR D>31 OR M<1l OR M>21 
2 OR (D>30 AND(M=4 OR M=6 OR M= 
9 OR M=10)) OR (D>29 AND M=2)TH 
EN 50 

70 85=0 

B0 IF M<D(1,55)+12*(5S5=2 AND M= 

1) OR M>D(3,55)-12*(55=2 AND M= 
12) OR (M=D(1,5S) AND D<D(0,55) 
) OR(M=D(3,SS)AND D>D(2,55)) TH 

EN S5=5S+1:GOTO 80 

90 CLS: PRINT"SEU SIGNO E ";55S(S 

8) 

100 PRINT:PRINT TAB(10)"VOCE DE 

SEJA:” 

110 PRINT:PRINT TAB(3)"1- PERFI 
L DE PERSONALIDADE” 

120 PRINT TAB(3)"2- PREVISAO PA 

RA 1988": PRINT:PRINT TAB(3)"N- 
ENTRAR NOVA DATA” 

130 KS$=INKEYS: IF KS<"1” OR(KS>” 
2" AND KS<>"N") THEN 130 

140 IF K5$="2" THEN 190 ELSE IF 
K$="N” THEN 50 

150 CLS:PRINT €16-LEN(SS(55S))/Z 

85 (55) : PRINT 
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160 C=8:FOR K=1l TO 2:B=AND(8B)-1 
“IF B<>C THEN C=B ELSE K=1:NEXT 
170 FOR L=0 TO 3:PRINT €L*32+K* 
128,HS(SS,C,L):NEXT L,K 

180 GoTo 240 

190 CLS: PRINT €2,"VOCÊE QUER SAB 
ER SOBRE:" 

200 PRINT:PRINT” 1- DINHEIRO/C 
ARREIRA”: PRINT”  2- CONTATOS/VI 
AGENS": PRINT” 3- FAMILIA":PRIN 
T* 4- AMOR” 

210 KS=INKEYS:IF KS$<"1” OR KS>” 
4” THEN 210 

220 CLS: PRINT Gl16-LEN(SS(SS))/2 
1/85 (SS) : PRINT 

230 FOR K=0 TO 7:PARINT 664+32*K 
-32* (K>3), PS(SS, VAL (KS)-1,K) :NE 
XT 

240 PRINT 6448," OUTRA VEZ (S/N 
nor 

250 KS=INKEYS:IF KS<>"S” AND KS 
<>"N” THEN 250 

260 IF KS="S” THEN 90 ELSE CLS: 
END 


Ni 
Fi» 


20 DIM H$(11,7,3),D(3,11),SS(l1l 
).P$(11,3,7) 

30 FOR K=0 TO 11:READ SS(K),D(O 
1K) +'D(1,K) +D(2,K) +D(3,K) “FOR J= 
O TO 7:FOR L=0 TO 2:READ HS(K,J 
L):NEXT L,J,K 

40 FOR K=0 TO 11:FOR J=0 TO 3:F 
OR L=0 TO 7: READ PS(K,J,L) :NEX 





T L.J,K 

50 CLS:INPUT"DIGITE SUA DATA DE 
NASCIMENTO (D,M,A) ";D,M,A:D=I 
NT (D) :M=INT(M) 

60 IF D<l OR D>31 OR M<1l OR M5I] 
2 OR (D>30 AND (M=4 OR M=6 OR M 
=9 OR M=11)) OR (D>29 AND M=2) 
THEN 50 

70 88=0 

BO TF M<D(1,5898)+12*(99=2 AND M= 
1) OR M>D(3,22)-12*(55=2 AND M= 
12) OR (M=D(1,8S) AND D<D(0,858) 
) OR (M=D(3,8S) AND D>D(2,88)) 
THEN SS=5S+1: GOTO 80 

90 CLS:PARINT "SEU SIGNO E ";ss( 
S8) 

100 PRINT:PRINT TAB(LO);"VOCE D 
ESEJA :" 

110 PRINT:PRINT TAB(3);"1]- PERF 
IL DE PERSONALIDADE” 

120 PRINT TAR(3);"2- PREVISAO P 
ARA 1988": PRINT:PRINT TAB(3);"N 
- ENTRAR NOVA DATA" 

130 KS$=TNKEYS:IF KS<"1” OR (KS> 
"2" AND KS<>"N”) THEN 130 

140 IF KS$="2" THEN 190 ELSE IF 
KS$="N" THEN 50 

150 CLS: PRINT TAB(2Z20-LEN(SS(SS 
1)/2):85 (58) : PRINT 

160 C=8: FOR K=1 TO 2:B=B*AND(- 
TIME)-1L:TF B<>C THEN C=B ELSE K 
=1:NEXT 

170 FOR L=0 TO 3:LOCATE ((L*32+K 
*]28)M0DI2)+4, INT((LX32+K*128)/ 
32): PRINT HS(SS,C,L)J:NEXT L,K 


180 GOTO 240 

190 CLS:PRINT TAB(10);"“PREVISAO 
SOBRE :” 

200 PRINT: PRINT” 
RRETRA” : PRINT” 2- CONTATOS/VIAG 


|- DINHETRO/CA 
ENS": PRINT” 3- FAMTLIA”:PRINT" 

d4- AMOR” 

210 KS=INKEYS:IF K$<"1” OR K$>” 
d” THEN 210 

220 CLS: PRINT TAR(20-LEN(SS (SS) 
1/2) 18585): PRINT 

230 FOH K=0 TO 7:LOCATE (64+32*K 
=32* (K>3))M0OD32, INT((64+32*K-32 
*(K23))/32): PRINT PS(SS,VAL (KS) 
=1,K) :NEXT 

<40 PRINT TAB(1LO0);"OUTRA VEZ (S 
[N) 2?” 

2390 KS=INKEY$: IF KS<>"S" 
C>"N” THEN 250 

260 IF K5S="5" THEN 90 ELSE CLS: 
END 


ra 

10 HOME 

£O DIM H$8(11,7.3),D(3,11),SS(I1 
1), P3(11,3,7) 

30 FOR EK «- O TO 11: READ S8S5(K) 
D(O,K),D(L,K),D(2,K),D(3,K): E 


AND K5 


OR J = O TO 7: FORL =0TOZ: 

READ HS(K,J,L): NEXT L,J,K 

40 FOR K = O TO ll: FOR J =0 

TO 3: FOR L = 0 TO /: READ PS(K 
cd, L): NEXT L,J,K 








50 HOME : PRINT "DIGITE SUA DA L: NEXT 
TA DE NASCIMENTO (D,M,A) ": INP 170 FOR L =OTOS: LET NWW=L 





UT D,M,A:D = INT (D):M = INT * 32 + K * 128: HTAB (WW - 32 
(M) * INT (WW / 32)): VTAB ( INT ( 
60 IFD<ICOHND>3ILOoORM<1I WWA/ 392)): PRINT HS(SS,C,L): NE 
OR M > 12 OR (D > 30 AND (M = KT L,K 


4040 M= 6 08R8M=90RM=ÃãiII)) 180 GOTO 240 
OR (D > 29 AND M = 2) THEN 50 190 HOME : PRINT TAB( 10)"VOC 
70 485 = O E DESEJA:” 
80 IE M<D(1,45) - 12 *4 (95 = 200 PRINT : PRINT” 1- DINHEI 
2? AND M = 1) QB M > D(3,85) + RO/CARREIRA”: PRINT ” 2- CONTA 
12 * (SS = 2 AND M = 12) OR (M TOS/VIAGENS”: PRINT * 3- FAMIL 
- D(1l.58) AND D < D(D,98)) OR € IA”: PRINT *. 4- AMOR” 
M D(3,88) AND D > D(2,58/)) TH 210 GET KS: IF KS < "1" OR KS 


EN OS = 88 + 1: GOTO BO > "dg" THEN 210 

90 HOME : PRINT "SEU SIGNO E ” 220 HOME :CE = 20 - LEN (SSIS 
“85 (55) S)) / 2: HTAB (CE): PRINT SS(S5 
OO PRINT : HTAB (10): PRINT ” ): PRINT 

VOCÊ DESEJA:” 240 FORK = 0 TO 7: LET YY = 6 
110 PAINT : PRINT TAB( 3)"1- +32 *KA+ IZ2 E KZ IA: HTAB 
PERFIL DE PERSONALIDADE” (TX = 32 * INT (NY / 32)): Vi 


120 PRINT TAR( 3)"2- PREVISÃO AB ( INT (WW / 32)): PRINT PS(S 
PARA 1988”: PRINT : PRINT TAB S, VAL (KS) — 1,K): NEXT 

( 3)"N- ENTRAR NOVA DATA” 240 VTAB (18): PRINT " OUTRA V 
[30 GET K$S: IF K$ < "1" OR (K$ EZ (8/N) 2” 

> "2” AND KS < > "N”) THEN 13 250 GET K$: IF KS< 2 05" AND 


Ê KS < > "Nº THEN 250 

140 JE K$-"Z” TREN LOU 260 IF K$ = "S” THEN 90 

145 [IF K5S = "N” THEN 50 270 IF K$ = "Nº THEN HOME : E 
150 HOME : LET CE = 20 - LEN ND 


(SS (8S)) / 2: HTAB (CE): PRINT 

55 (55): PRINT 

160 € = 8: FOR K = 1 TO 2Z:Bb = 
INT ( BND (1) * B): 1F BS 2% 
THEN C = B: IF B = CU THEN K = 


LINHA DATA 





As linhas a seguir podem ser intro- 
duzidas como estão no MSX e no Ap- 
ple. Se você possui um TRS-Color, de- 
ve usar aspas em todas as linhas DATA 1210 DATA sentido formal da palavra. 
que contêm dois pontos (:) ou virgula. 1220 DATA “Compatibilidade: Virgem, Gêmeos, 
Os usuários do Spectrum precisarão usar 
aspas em todas as linhas, exceto naque- 1230 DATA Sagitário. 


las que contém números. 1240 DATA “Cores: verde, azul.” 
1250 DATA AQUÁRIO, 21,1,19,2 


1260 DATA Você considera seus amigos como 
1270 DATA “sendo parte de sua família, tant 


1000 DATA PEIXES,20,2,20,3 
1010 DATA Você é o médium do 


1020 DATA "zodíaco, sendo o maia intuitivo” * 
1280 DATA quanto seus parentes. 


1290 DATA Você é independente desde 
1300 DATA "pequeno, mas terá uma casa” 


= 


1030 DATA e sensitivo dos signos. 

1040 DATA Você é piedoso e 

1050 DATA se envolve prontamente com 08 
1060 DATA problemas de outras pessoas. 1310 DATA sempre cheia de amigos. 

1070 DATA “Você absorve as atmosferas, e pr 1320 DATA Você frequenta clubes e associaçõ 


eciga de” es 

1080 DATA “um ambiente alegre, envolvendo-a 1330 DATA mais do que os outros signos 

e com” 13140 DATA e pode ser um membro do CND. 

1090 DATA aqueles que O fazem se sentir tra 1350 DATA “Você é inventivo e inovador,” 
nquilo. 1360 DATA e tem idéias e concepções 

1100 DATA "Você gosta de álcool, e precisa 1370 DATA avançadas. 

ger" 1380 DATA Você tem dificuldade em se 

1110 DATA cuidadoso para não se embebedar. 1390 DATA "reportar a alquém, e pode ser” 
1120 DATA * €* 1400 DATA isolado por causa disso. 

1130 DATA Você é tão generoso que 1410 DATA "Você veste roupas bizarras,” 
1140 DATA frequentemente não tem dinheiro 1420 DATA que são mais interessantes 

1150 DATA o bastante para você means. 1430 DATA do que elegantes! 

1160 DATA Você é um grande artista. Tem dom 1440 DATA "Você escolhe ciências sociais,” 
1170 DATA "para música, dança, desenho” 1450 DATA política ou engenharia eletrônica 
1180 DATA ou fotografia. 1460 DATA como carreira. 

1190 DATA "Você vive e respira religião,” 1470 DATA “Compatibilidade: Capricórnio, Li 


1200 DATA mas não necessariamente no bra. 
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1790 DATA Você gosta de fentas e de 2050 DATA olhos penetrantes e por seu 

1800 DATA “participar de jogos, mas” 2060 DATA nariz xereta. 

1810 DATA seu fraco são belas coxas. 2070 DATA Seis meses antea ou depois do 
1820 DATA Você adora viajar e conhecer 2080 DATA nascimento de um Escorpião 

18340 DATA novas pessõas. 2090 DATA um parente falece. 

1840 DATA * * 2100 DATA Você é interessado em aprerider 
1850 DATA “Você tem bom ouvido para línguas 2110 DATA e adora resolver mistérios. 

o 2120 DATA * * 

1860 DATA e pode falar falar fluentemente 2130 DATA Homens e mulheres de Escorpião sã 
1870 DATA muitas delas. Fe 

1880 DATA “Carreira: jornalista, radialista 2140 DATA muito atraídos pelo sexo oposto, 
Pi 2150 DATA * * 

1890 DATA “professor, filósofo," 2160 DATA "Carreira: policial, ciruraiãdo,* 
1900 DATA esportinta. 2170 DATA “pimicálogo, ciências sociais, er 
1910 DATA "Você é muito dinâmico, e” 2180 DATA carreiras com posição de poder 
1920 DATA acha dificil ficar parado em 2190 DATA Você não é muito falante 

1930 DATA um mesmo lugar o tempo bastante 2200 DATA mas tudo o que tala é 

1940 DATA para ser mondgamo. 2210 DATA “incisivo e,ás vezes, dgressivo” 
1950 DATA "Você adora animais, e o jogo," 2220 DATA “Compatibilidade: Câncer, Libra.” 
1960 DATA “infelizmente, pode ser uma Éragu 27230 DATA “Cor: Marron.” 

eza.” 2240 DATA * " 

1970 DATA "Compatibilidade: Peixes, Virgem, 2250 DATA LIBRA,24,9, 43,10 

To 2260 DATA Você é o cativante do 

1980 DATA Gêmeos. 2270 DATA “zodiaco, reconhecido por” 

1990 DATA “Cores: azul royal, violeta" 2280 DATA suas hvas maneiras. 

2000 DATA ESCORPIÃO,24,10,22,11 2290 DATA "Você não aupórta ficar sa;" 
2010 DATA “Você é o mais apaixonado dos sig 2300 DATA Precisa da companhia de 

nos,” 2310 DATA outras pessoas. 

2020 DATA “emotivo, e, se contrariado,” 2320 DATA “Você é um excelente anfitrião,” 
2030 DATA pode ser vingativo. 2230 DATA e é muito hábil] para criar uma 
2040 DATA Você é reconhecido por seus 2340 DATA atmosfera de harmonia. 





1480 DATA “Cor: azul ferrete.” 

| 1490 DATA * * 
1500 DATA CAPRICÓRNIO,22,12,20,1 

1510 DATA Você é o mais ambicioso dos 
1520 DATA “signos, traçando planos de” 

| 1530 DATA carreira desde pequeno. 
1540 DATA As crianças de Capricórnio 

, 1550 DATA parecem ser adultos sérios e 
1560 DATA maduros desde o nascimento. 
1570 DATA Você precisa se resquardar 
1580 DATA contra o reumatismo e todos os 
1590 DATA alimentos que atacam a espinha. 
1600 DATA As carreiras para o capricorniano 
1610 DATA “se relacionam a matemática,” 
1620 DATA “contabilidade ou Finanças.” 
1630 DATA "Você é econômico, mas” 
1640 DATA tudo o que compra é de 
1650 DATA qualidade e feito para durar. 








1660 DATA Você é caracterizado pela sua 
1670 DATA conduta irrepreensível e olhar 

| 1680 DATA sério. 

1690 DATA Você tem mais conhecidos do que 

1700 DATA “amigos; seus verdadeiros" 

1710 DATA amigos são sua família, 

1720 DATA "Compatibilidade: Touro, Cancer," 

1730 DATA Aquário. 

1740 DATA “Cores: Preto e tona escuros,” 

| 1750 DATA SAGITÁARIO,23,11,21,12 

| 1760 DATA Você é um otimista de nascimento 

| Lº7TO DATA e é divertido e com um grande 
1780 DATA senso de humor. 


—- 4 — — 
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2350 


2360 


2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 


2490 


2570 
2580 
2590 
2600 
2610 
2620 


vida. 


2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 


DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


O DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


"VUocê tem covinhas nas bochechas, 


e lábios bem feitos. E soíre 


dos rins. 

Você às vezes fica apaixonado 
e nunca fica muito tempo sozinho 
Aa carreiras para o libriatnió 
“podem incluir: cabeleireiro,” 
"esteticista, Juiz,” 

“advogado.” 

seu bom senso para elegância 

dá harmonia às suas Foupaãas 

pela boa escolha das cores 

LEB, 


"Compatibilidade: Aquário, ár 


Escorpido., 


“Cores: de tom pastel. 
VIRCEM,24,8,24,% 

Você é hipocoundr faco e nunca val 
a lugar nenhum sem uma caixa 

de pílulas para alquma doença. 
“Você tem um corpo saudável, 
Mila 


mas nunca está contente com 


aparência. 


E 


“Você é fastidioao, E aua casa 


será sempre impecavelmente limpa 


as E] 


“você é critica por patureza,” 
prestando muita atenção aos 
detalhes em todos os asprctos da 
"carreiras: bibliotecário,” 


“estatístico, crítico, cientista” 
ou médico 

Você provavelmente não Lerá 

"uma família muito grande 
desordem deixa você doente. 


“Você é prático por natureza, 
“a, me trabalhar em um escritório 


2710 
2720 


2730 
2/40 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 


DATA 
DATA 


DATA 
DATA 
CATA 
DATA 
DATA 
DATA 
DATA 
DATA 


29 APLICAÇÕES 


29 


será muito organizada. 


“compatibilidade: Peixes, Gemeos, 
Sagitário. 

“Cor: Azul escuro.” 
LEAO,24,7,23,8 

Ambos os sexos vestem as 

roupas e jóias mails caras é 
são incrivelmente valdosas. 
“Como os leões, você pode” 
ter uma grande cabeleira 
dourada. 


"você adora drama, e gosta de” 


2830 
2840 
2850 
2860 
2870 
0B. 

2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
1000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 


DATA passar seu tempo livre no 

DATA teatro ou cinema. 

DATA Seu gonto por comidas fortes 
DATA é um perigo para seu coração, 
DATA Você é propenso à ataques cardiac 


DATA Você é generoso com seu dinheiro 
DATA - 
DATA prevenido. 
DATA"Carreiras: 
DATA "professor, 


mas não deixa de ser 


goalheiro, ator. 


líder em alguma funçã 


DATA * * 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA * * 

DATA CANCER,22,6,23,7 
DATA “Você é muito tímido, 
DATA seus lindos olhos 
DATA 
DATA 
DATA 
DATA 
DATA 


Seu lar pode ser uma grande 
casa desunida. Vizinhos são 
ameaça ao seu espaço. 
"Compatibilidade: Cancer, áries.* 


"Cores: Ouro e Âmbar.” 


escondendo” 


sob pálpebras aubmissas. 

Você sempre permanecerá preso à 
meus parentes (principalmente 

sua mãe) mespo depois de casado.. 
"Você é normalmente tímido, mas” 











3080 DATA 
3090 DATA 
3100 DATA 
3410 DATA 
3120 DATA 
3130 DATA 
3140 DATA 
3150 DATA 
3160 DATA 


lutaria até a morte para 

proteger sua família. 

Sua casa é seu castelo e somente 
amigõa muito especiais 

a frequentam. 

Você gostaria de viver perto 

"da áqua - um rio, riacho ou” 

à beira-mar. 

"Carreiras: enfermeiro, jardineir 


o, marinheiro,* 


3170 DATA 
fo.” 

4180 DATA 
1190 DATA 
3200 DATA 
3210 DATA 
1220 DATA 
1230 DATA 
31240 DATA 
1250 DATA 
3260 DATA 
3270 DATA 
J280 DATA 
3290 DATA 
1300 DATA 
3310 DATA 
3320 DATA 
1330 DATA 
1340 DATA 
dos, 

1350 DATA 
1360 DATA 
3370 DATA 
3380 DATA 
1390 DATA 
3400 DATA 
3410 DATA 
M20 DATA 
3430 DATA 
ro(a).* 
1440 DATA 


1450 DATA 
MM60 DATA 
3470 DATA 
14680 DATA 
31490 DATA 
3500 DATA 
3510 DATA 
4520 DATA 


“cozinheiro, professor ou futógra 


= = 


“Você se prende ao passado, e 
adora colecionar antiguidades. 

Você tem boa memória fotográfica. 
"Compatibilidade: Ledo, Escorpião 


"Cores: Branco e prata.” 
GEME0OS,22,5,21,6 

“você é do tipo esbelto, e tem" 
“membros longos e delgados.” 
"Você fala pelos cotovelos, e” 
poderia passar um dia inteiro 
falando somente banalidades, 

Você é o mais comunicativo do 
“zodíaco, reconhecido pelo” 

modo como gosta de falar com as m 


Ambos os sexos sofrem dos nervos 
"e insônia, e devem se precaver” 
contra a estafa. 

"Sua casa será sempre deserta;" 
vo.& estará sempre visitando um 
viiinho ou amiçõo. 

Você se sente sufocado num 
“relacionamento maia duradouro,” 


“a perita ne prender a um companhe 


“Carreiras: jornalista, vendedor, 


“professor, escritor.” 
“Compatibilidade: Sagitário,” 
“"Ceixes, Virgen.” 

"Cor: amarelo.” 

ARIES,21,3,20,4 

“Você adora gastar dinheiro, 

mas coloca suas necessidades em Pp 


rimeiro lugar. 


3530 DATA 
1540 DATA 
3550 DATA 
1560 DATA 
1570 DATA 
1580 DATA 
car” 

1590 DATA 
3600 DATA 
3610 DATA 
ntunões.” 
3620 DATA 


 í* 


“Você reage bem nas adversidades, 


“tem gênio forte, mas aabe” 
“perdoar com facilidade.” 
e” 


"Você é fisicamente ativo, e 
“prefere esportes que possa prati 


individualmente. 


"Você sofre de dores de cabeça, é 


“é propensa a sofrer cortes ou co 


31630 DATA Você aprecia muitó a companhia 
3640 DATA “de outras pessoas, especialmente 
3650 DATA daquelas que não interferem no se 
u modo de ser. 

J660 DATA "Carreiras: açouqueiro,* 


31670 DATA esportista. 

3680 DATA * * 

3690 DATA "Suas roupas são ousadas, " 

3700 DATA “sempre justas, mas de desenhos” 
3710 DATA simples. 

3720 DATA “Compatibilidade: Touro, Libra, L 
ado.” 

3730 DATA “Cor: Vermelho.” 

4740 DATA " * 

3756 DATA TOURO,21,4,21,5 

1760 DATA Você é afetuoso e 

3770 DATA romântico. 

3780 DATA * * 

3790 DATA “Você é cuidadoso com dinheiro; 
3800 DATA precisa de segurança Financeira E 


ais 
3810 DATA do que qualquer outro signo. 
3820 DATA “Embora seja normalmente calmo, 
3830 DATA “você pode se tornar temível, 
3840 DATA “especialmente se for para defend 
er seu cônjuge.” 

3850 DATA Seu temperamento de apreciar as 
41860 DATA boas coimas frequentemente o 

3870 DATA leva à um médico para a indicação 
de uma dieta. 

3880 DATA “Você pode se tornar muito posses 
sivo" 

3890 DATA "no amor, e espera que seu parcei 
ro" 

31900 DATA rejeite o sexo oposto. 

3910 DATA “Você é muito sensual; gosta do" 
3920 DATA contato de tecidos sedosos 

3930 DATA contra a pele. 

1940 DATA “Carreiras: arqueologista, banque 
Lro, 

3950 DATA “fazendeiro, empresário de” 

31960 BATA vendas. 

3970 DATA "Compatibilidade: Áries, Capricidó 


- 


TniO. 


31980 DATA “Cores: Azul, rosa.” 

3990 DATA * * 

4000 DATA Em fevereiro, seu trabalho será 
4010 DATA “mais isolado do que o normal, 
4020 DATA e você terá que impor muita 
4030 DATA auto-disciplina. 

4040 DATA “Na primavera, terá” 

4050 DATA despesas extras com 

4060 DATA viagens. 

4070 DATA * * 

4080 DATA Você vai aproveitar um longo 
4090 DATA “feriado em Outubro/Novembr o" 
4100 DATA aprofundando-se nos mistérios 
4110 DATA dos antigos impérios. 

4120 DATA Em junho, você deverá 

4130 DATA adotar atitudes mais sérias 
4140 "DATA “diante dos seus problemas, desd 


e 
4150 DATA os cotidianos até os mais graves, 
4160 DATA Em junho você trabalhará duro 


4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
UEC. 
4260 
4270 
4280 
4290 
4300 


4310 
4320 


4330 
4340 
4350 





DATA e gastardá dinheiro com sua 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


“casa, provavelmente comprando” 


eletrodomésticos. 


Em Julho/Agosto você enfrentará 


um dilema entre as prioridades 
do trabalho e da aua família. 


Uma amizade que começará 


DATA em janeiro pode se mostrar durado 


DATA 
DATA 


"DATA “Em Outubro, 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


“período de mau humor, 


você enfrentará um" 


envolvido” 


por uma amizade passageira que 
o deixará mal com seus amiqos. 
Por muitos anos você terá a 


vantagem de ter um planeta 


poderoso regendo sua 


Carreira. 
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4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
4520 DATA 
4530 DATA 
4540 DATA 
4350 DATA 
4560 DATA 
4570 DATA 
4580 DATA 
4590 DATA 





Nos últimos dois anos você 

tem estado anquatiado por ter 

ou não escolhido o cáminho certo. 
Em 1988 você terá a resposta. 
Entre Fevereiro e Abril você 
viajará curtas distâncias para 
encontrar seus entes queridos. 
Você provavelmente viajará 

“no final do ano (Setembro/* 
“Dutubro), 


m- - 


com amigos." 


Você vai passar o mês de Julho 
“em casa, e deve tomar” 
cuidado para não engordar 
muito. 

Um 
alguém da família pode 
ocorrer em Março. 


desentendimento com 


Um intenso relacionamento pode 
"começar em setembro, começando” 


de algo que para os outros 


não passava de uma paquera. 





4600 
4610 
4620 
1 

4630 
O. 

4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
470 
4740 


DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


cação. 


4750 
4760 
4770 
4780 
4790 
4800 
4B10 
4820 
4830 
o. 
4840 
4850 
4860 
4B70 
4880 
4890 
4900 
4910 
4920 
4930 
a 
4940 
4950 
41960 
D 
4970 
4980 
ava” 
4990 
5000 
5010 
5020 
5030 
5040 
e 
5050 
5060 
5070 
5080 
Bes,* 
5090 
or* 
5100 
5110 
5120 
5130 
5140 
5150 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 


DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 


DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Os homens podem se ver 
comprometidos com a fiqura da 
“mãe em Dezembro, mas é improváve 


que esta situação dure até Janeir 


No final de 1988 você pode 

achar que conquistou uma posição 
“de autoridade, 
"claras e objetivas.* 


com opiniões” 


Você não deve ser muito 
simpático com aqueles que não 
"o são; deve pensar um pouco” 
mais em você 
Você se tornará muito popular 
“no trabalho em janeiro, qraças”" 


a uma grande capacidade de comuni 


É provável uma grande viagem 
ao exterior em Betembro. Tome 
cuidado com roubos. 


“Cuáã casa, em março, parecerá” 
um campo de batalha. Tente 


"evitar afirmações amnbíquas, 
"que podem ocasionar um rompiment 


Você passará o mês de Abril 
preocupado com a decoração de 

sua casa. 

“Pode surgir um caso em Agosto,” 
mas você deve tomar cuidado para 
não ser nem muito dominante 

nem exageradamente atencioso. 

Um relacionamento duradouro 
surgirá com alguém que compartilh 


alguma atividade ou interesse 
em Novembro.” 
A posição dos planetas em Setembr 


"com vocÊ, 


pode significar alguma mudança 
“nã sua carreira, que você planej 
desde o ano passado. 

Você entará financeiramente bem 
“em 1988, 
instituições de caridade que 


e fará donativos a” 


cuidam de idosos. 
Você estará envolvido em um grand 


“negócio durante todo o ano,” 
a partir de fevereiro. 


“Você se ligará a tantas associaç 


“particularmente de ensino asuperi 


que talvez esqueça de que 
tem uma casa. 

Você passará por um período 
“muito romântico em seu lar,” 


em Janeiro, 


5160 DATA 
5170 DATA 
5180 DATA 
5190 DATA 
5200 DATA 
4210 DATA 
5220 DATA 
5230 DATA 
5240 DATA 
5250 DATA 
5260 DATA 
5270 DATA 
Ca. 

5280 DATA 
5290 DATA 
5300 DATA 
5310 
O. 
5320 DATA 
5330 DATA 
5340 DATA 
casa,” 
5350 DATA 
5360 DATA 
5370 DATA 
5380 DATA 
5390 DATA 
5400 DATA 
5410 DATA 
5420 DATA 
5430 DATA 
5440 DATA 
5450 DATA 


DATA 


A partir de fevereiro começará 
um ano de muita atividade para 


"você, fora de casa.” 


Um romance pode começar no 
"Natal, mas 
atração física. 


talvez sem 


“Uma relação mais profunda,” 

“até certo ponto frívola, pode” 
“começar em Junho. Esta pode” 

ser uma relação ardente e dramáti 


A despeito de algumas 
“divergências, você trabalhará” 


“duro, como fez ano passado, para 


consolidar sua posição no trabalh 


Você deve se precaver contra 
"gastos desnecessários, tanto” 


"seus como das outras pessoas da 


"que tendem a ser extravagantes.” 
Você se envolverá com trabalho 
“de caridade nos próximos anos,” 
sendo bom em aconselhar amigos. 
. 

Você vai querer viajar em Julho 
mas terá que esperar por Agosto 
até ter dinheiro o suficiente, 

= w 

Você vai sentir que sua família 
em peso quer que você faça 
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5460 
5470 
5480 
5490 
5500 
a. 
5510 
5520 
5530 
de 
5540 
5550 
5560 
5570 
5580 
5590 
O. 
5600 
5610 
5620 
à. 
5630 
5640 
5650 
5660 
5670 
5680 
5690 
5700 
5710 
5720 
5730 
5740 
5750 


DATA curso superior. 

DATA * * 

DATA É possível que sua família não 
DATA 
DATA 


receba bem um amigo seu que 
é conhecido por ser muito otimist 


DATA " € 
DATA 
DATA 


Da segunda semana de Novembro 

até Dezembro existe a possibilida 
DATA intensa relação 
DATA 
DATA 
DATA 
DATA 
DATA 


de começar uma 
Com uma pessõa mais velha. 
Um romântico caso de amor pode 


“começar no início do ano, mas 
talvez desmorone se você não 

deixar de pensar tanto no trabalh 
DATA Da segunda metade de Junho até 
DATA 


DATA 


nês de agosto você entará 
preocupado em afirmar sua carreir 


DATA * * 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA provável em Maio, 
DATA cumprindo um circuito turístico. 
DATA * * 


Financeiramente você estará 
consolidando os qanhos que 
“obteve em 1987, fruto de” 
Longo e cuidadoso planejamento. 
Você vai se notar cada vez 

mais interessado em discutir 

ou falar sobre temas 

políticos. 

Uma viagem ao exterior é 
provavelmente 








9760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
5840 
5850 
5860 
5870 
SBRO 
5890 
5900 
5910 
5920 
59340 
2940 
5950 
3960 
5970 
3980 
5990 
6000 
6010 
6020 
5040 
6040 
6050 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


Por um período de dez anos você 


sentirá atração por mudar-se 
para algum lugar perto de áqua. 
É provável que algum membro de 
gua família se interesse por 
uma religião em particular 

ou algo aimilar. 

No final de Outubro um longo 
cago de amor se iniciará, 


CR] 


Compromissos importantes serão 
assumidos pelos homens no começo 
“de Outubro, 
no começo de Novembro. 
Em junho você estará se 


e pelas mulheres* 


“realizando com sua carreira," 
fazendo muitas viagens 
relacionadas a seu trabalho. 
Em Outubro você receberá 
grande soma em dinheiro 

fruto de antigos negócios. 


“Por todo este ano, como” 
"foi o ano passado, você” 


estará falando de sua carreira. 
Em Outubro/Novembro você será 
uma companhia apenas agradável 


6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 





DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 





e estará num estado 

de muita despreocupação. 

Em 1988 você vai hospedar um 
“amigo recén-divorciado, ou* 
um estudante em sua casa. 

Um acontecimento inesperado no 
verão 88/89 pode aiqnificar 
uma mudança para nova casa. 
na 

Um romance nascerá em GBetenbro 
desde que sua atitude 
independente quanto a formar um 
lar não estraqgue tudo. 

Existe a possibilidade de 
casamento ou início de alguma 
relação permanente em 

Outubro. 

O final de maio pode ser uma 
boa época para você mudar de 
se acha que existe” 
essa necessidade. 

Você pode achar qualquer troca 
de emprego financeiramente 


“emprego, 


vantajosa - este pode ser o 

final de uma era. 

Em Outubro/Novenbro você 

estará muito alegre e sociável 
mas em Dezembro deve tomar cuidad 





6150 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
6430 
6440 
6450 
b460 
6470 
6480 
6490 
6500 
6510 
4520 
6330 
6540 
6550 
6560 
6570 
6380 
6590 


8600 


6610 
6620 
6630 
6640 
6650 
6660) 
6670 
6680 
6690 
6700 
6710 
6? 20 
6730 
6740 
6750 
6760 
6770 
6780 
6790 
6800 
6810 
6820 
6830 
6840 
6850 
6860 
6A70 
6880 
6890 
&900 
6910 
6920 
6930 
6940 
6950 
6960 
6970 
6980 
6990 
7000 


DATA para não ser muito mandão. 

DATA Na primavera você vai estar 

DATA “em algum lugar muito quente,” 
DATA e vai estar em muito 

DATA boa companhia. 

DATA Você pode ter que cuidar de 

DATA alguma senhora idosa da família. 
DATA Mas a obrigação pode ser aliviada 
DATA em Ourubro e Novembro. 

DATA Você vai aproveitar muito O 

DATA "Natal, 
DATA quebrar um braço nas festas. 
DATA * * 

DATA BA será um ano mais de amizades 


nas cuidado para não” 


DATA do que de casos amorósoa. 
DATA * * 

DATA * * 

DATA Um romance de verão pode 
DATA “acontecer nas férias, mas” 
DATA ambos os parceiros não 

DATA entarão apaixonados. 

DATA Fevereiro e Abril serdo meses 
CATA significantes para sua carreira 
DATA e você pode receber aumento. 
DATA * * 

DATA Setembro será um mês muito 

DATA tranquilo financeiramente. 

DATA Você qastará bastante em 

DATA lazer. 

DATA “Em setembro, uma disputa no” 
DATA trabalho pode o levar à 

DATA greve ou destacar sua 

DATA participação. 
DATA Uma viagem ao exterior é 
DATA muito prováve] no começo 


DATA de Agósto. 


DATA * * 

DATA Em junho você gozará a 

DATA companhia dos homens da 

DATA família e relaxará em casa. 
DATA * * 

DATA Em Agosto você estará decorando 
DATA o jardim ou comprando 

DATA antiguidades para sua casa. 
DATA * ” 

DATA Em junho você pode iniciar UR 


relacionamento de pura atração 
“física; sentimento de amor só” 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA * * 


depois de Outubro. 
“Em Outubro, você poderá” 


ter uma criança. 


DATA * * 


DATA 


“Nos próximos treze anos, 


DATA"VOCE será capaz de influenciar.” 


DATA 
DATA 
DATA 
DATA 
DATA 


“gutilmente, as carreiras de” 
muitas pessoas. 

Julho e Agosto serão meses muito 
importantes para suas finanças. 


Suas aquisições em Agosto serão 


DATA compras inteligentes. 

DATA Você deve tomar cuidado com O 
DATA “que fala em Julho/Agosto, para” 
DATA não se meter em apuros. 

DATA " 


DATA 


É provável que surja uma 





7010 
2020 
7030 
7040 
7050 
7060 
2070 
"080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
1200 
2210 
7220 
7230 
7240 
7250 
7260 
7270 
1280 
290 


7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 
/400 
7410 
7420 
7430 
7440 
7450 
1460 
7470 
"480 
7490 
7500 
7510 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


velha. 


7520 
7530 
1540 
7550 
7560 
"570 
7580 
7590 
7600 
"610 
7620 
7630 
7640 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


grande viagem nas últimas 
duas semanas de Dezembro e 
no final do ano em qeral. 

Em setembro você trará algum 
estrangeiro ou forasteiro 
para Bua casa. 

Você estará muito ativo em 
“setembro, e se dividirá”" 
entre seus compromissos sociais 
e os afazeres domésticos. 

Você vai passar a malor 

“parte de setembro em casa,” 
"curtindo uma paixão, e vai” 
causar entranheza a muitos. 

Os homens vão se sentir muito 
“românticos no começo de Julho,” 
e am mulheres durante Junho e 
Julho. 

Você vai passar de Março a Maio 
“pondo em ordem suas finanças,” 
você se sente gastando muito 
impulsivamente. 

Em dezembro você vai começar 

a trabalhar ou mudar sua carreira 
par a algunta coisa que lhe dê 
maior liberdade de comunicação. 
Aparecerão muitas oportunidades 
"de viagem em 1988, especialmente 
viagens aéreas. 

Uma viagem inesperada pode 
“acontecer em Dezembro, e” 
durante essa viagem pode 
surgir tm romance. 


Em junho você pode se envolver 


em tensas discussões na família 
em torno de um membro idoso 
ou inválido. 

Em agosto você vai gastar 
bastante dinheiro em itens de 
luxo para sua casa. 

Um caso secreto que teve 

seu início em Jáneiro 

deve acabar em 

Fevereiro. 

Um romance pode começar no 


“seu trabalho em Outubro, 


mas” 
o parceiro vai acabar se 
interessando por uma pessõa máia 


Depois de fevereiro você 


vai se envolver com problemas 
legais que afetam sua 
carreira 

Pode aparecer um ganho 

que” 


“"axtra em Junho, 


você deve reinvestir. 


Agosto vai ser um ótimo 


"mãa para VOCê em casa, e” 
você se envolverá em 
acirrados debates políticos. 


Se você vai se mudar em 1988 


7650 
"660 
"6:40 
"680 
7690 


COMO APERFEIÇOAR O PROGRAMA 

Embora seja muito divertido, o pro- 
grama de horóscopo apresenta uma sé- 
ria desvantagem: não renova as inter- 
pretações e previsões, a não ser por um 
sorteio muito restrito. Assim, ele ''per- 
de a graça” depois de uma ou duas 
consultas. 

Se você conhece um pouco de pro- 
gramação BASIC, porém, poderá mo- 
dificar o programa e tornar seu interes- 
se mais duradouro. Eis aqui algumas 
práticas sugestões: 

— aproveite a idéia adotada em nosso 
programa original e aumente o núme- 
ro de alternativas de interpretação do 
horóscopo para cada signo. Se você 
colocar oito ou dez alternativas mais 
curtas para cada signo, e usar o gera- 
dor de números aleatórios para esco- 
lher uma delas, diminuirá a chance de 
que o programa se repita; 

— além do signo do zodíaco (que cor- 
responde à constelação que está no 
ponto mais alto do céu, no momento 
do nascimento), existe o signo ascen- 
dente (que é a constelação que está 
apontando no horizonte no momento 
do nascimento). Inclua-o no programa, 
com o conjunto de interpretações cor- 
respondente; 

— armazene os textos de interpretação 
em um arquivo de disco, separadamen- 
te do programa. Depois que o signo da 
pessoa foi determinado, o texto corres- 
pondente será carregado na memória 
e mostrado no vídeo. Você poderá, as- 
sim mudar constantemente os textos, 
sem precisar alterar o programa pro- 
priamente dito. 





DATA considere cuidadosamente todas 
DATA 
DATA 
DATA 
DATA 


“as implicações, especialmente” 
durante Abril 
Nas duas ultimas semanas de Maio 


e Agosto 


você vai fazer pequenas viagens 


"700 
"710 
7720 
2730 
7740 
750 
7760 
77270 
7780 
"to 
7800 
810 
7820 
7830 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


para visitar velhos amigos. 
Existe a possibilidade de uma 
viaçem em Julho com alguém que 
não necessariamente seu parceiro 
Um amor de verão pode acabar 

se você tornar-se muito 
possessivo. Você pode ser 
envolvido por alguém frívolo. 
“Para as mulheres, a amizade” 
baseada ná figura paterna pode 


tornar-se muito profunda. 
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“ROTINA FINAL 
ORDEM DE CHAMADA 
RECOMPENSA, MORTE OU VIDA 
“CÂMARA LENTA 
INTERRUPÇÃO 








hã 

























Na base da encosta, Willie permanece E | ————s 150 REM dela dec a 
I RN E | 160 REM 5r nz,dela 
em compasso de espera. O cenário 170 REM djnz delb 
está completo — com pedras, buracos, A rotina a seguir é o laço principal 180 REM ld a,254 
ar que completa o jogo: 190 REM in a,254 
> cobras e mar. Para que O jogo 200 REM bit 0,a 
comece, falta só um comando: “Ação!” | 10 REM org 58702 e10 REM JE DEAD 
ao 20 REM alp call 59153 220 REM ret 


30 REM call 58993 
40 REM call 59823 


Até agora, você digitou e testou se- 50 REM call 58882 
paradamente as várias rotinas que com- 60 REM call 58795 
põem o videogame Avalanche. Neste ar- 70 REM call 58751 - 
tigo, fornecemos a rotina final, que cha- 80 REM ld a, (57336) = 
ma todas as outras na ordem certa e exe- 90 REM cp 1 


100 REM Jp z,59788 


cuta o jogo completo. 
195 p 110 REM cp 2 


À Depois de digitar e rodar esta rotina, 50 REM 3D 2,59652 
comece a jogar. Certamente você se sen- 49 REM dIl ld D50 
tirá recompensado por todo o trabalho 4409 REM delb ld a,255 
que teve. 

Caso o programa não funcione ade- 
quadamente, confira-o com a listagem 
completa e revisada (veja o próximo ar- 
tigo desta série). 











| 


o 


Quando essa rotina e o restante do 
programa estiverem na memória, come- 
ce o jogo digitando a instrução: 


LET L=USA 58576 


Como você deve ter notado, ela cha- 
ma o endereço do rótulo gbin, que está 
na origem da rotina de inicialização do 
jogo, no artigo da página 969. 


“ ORDEM DE CHAMADA 





A rotina principal chama, nesta or- 
dem, a rotina de movimentação de Wil- 
lie, em 59153; a rotina das pedras, em 
58993; a rotina das cobras, em 59823; 


Ela rotina do mar, em 58882; a rotina da 


Inuvem, em 58795, e a rotina das gaivo- 


tas, em 58751. 





= 





EE. com 2. Se ele contém esse 


ap! 


RECOMPENSA, MORTE OU VIDA 


Em seguida, a rotina verifica a cha- 
mada variável da morte. Ela é transfe- 
rida de 57336 para o acumulador e com- 
parada com 1. Se este for o seu valor, 
a instrução jr z manda o processador pa- 
ra a rotina da recompensa, no endereço 
59788. Essa rotina incrementa o escore 
e coloca uma nova tela. 

O conteúdo do acumulador é então 


valor, o processador é mandado para à 
rotina da morte, no endereço 59652. Es- 
ta é a rotina que enterra Willie e encer- 
ra a partida. 


CÂMARA LENTA ey 


Se o processador fosse instruído só 
para executar repetidamente a rotina fi- 
nal, a cada vez ele chamaria todas as ou- 
tras rotinas na memória, e O jogo seria 
tão rápido que se tornaria impraticável. 
Assim, para tornar o movimento mais 
lento, dois laços são construídos, o que 
atrasa o processador em dois centésimos 
de segundo. Pode não parecer muito, 
mas, considerando-se que a rotina é cha- 
mada seguidamente, trata-se de um tem- 
po significativo. 

B é carregado com 50, e A, com 255. 
A seguir, O conteúdo de A é decremen- 
tado. A instrução jr nz manda o proces- 
sador para o laço dela 256 vezes, para 
que A seja decrementado até O. 

A instrução djnz decrementa 0 con- 
teúdo do registro B e faz o processador 
voltar e carregar A com 255 de novo. ls- 
so é feito até que B acabe sendo reduzi- 
do a O. Portanto, o laço externo é exe- 
cutado cinquenta vezes, e O interno, 255 
x 50 vezes. 





i= - - - — E - - - —— 


O registro B contém o valor 50 ape- 
nas quando o jogo começa. À medida 
que Willie recupera seu lanche, um no- 
vo valor é colocado no endereço ocupa- 
do por 50 na instrução ld b. Se você vol- 
tar ao programa dos prêmios, verá que 
o valor nesse endereço é carregado em 
A, decrementado e colocado de volta em 
B cada vez que Willie recupera um item 
do seu lanche. Essa operação resulta, 
efetivamente, em uma alteração no pro- 
grama — ou seja, uma rotina altera ou- 
tra rotina. Tal expediente só é recomen- 
dável quando seus efeitos forem total- 
mente controlados. 

O processador executará o laço de 
atraso uma vez menos, acelerando o jo- 
go em cerca de 90 microssegundos. 





FORA DO LAÇO 


Como todo bom programa, este tam- 
bém oferece ao usuário a alternativa de 
interromper a execução, sem ter que des- 
ligar o computador e perder tudo o que 
está na memória. 

Neste ponto do programa, precisa- 





mos verificar se a tecla <BREAK> foi 20 ALP LDA 45 170 DEL CLRA 





















pressionada. Para isso, usamos o co- 30 STA 18258 180 DELA DECA 
mando in. Se < BREAK > não foi pres- Pa gia cai a BEE DELA 
sionada, a instrução jr nz, alp faz o pro- | fo 
fionada, à sãos P p 60 BLP JSR MAN 210 BNE DEL 


cessador iniciar o laço principal outra 
| 7 BAR | 
vez. Se foi, o processador encontra a A. pós 220 JSR 41409 


instrução ret e volta para o BASIC. 90 ps DER ça erro 
E cera E us Ses 100 JSR MOVSUN 250 RTS 
| 110 LDA 18252 260  MOVSUN EQU S4DOF 
aa | 120 CMPA tl 270 ELB EQU S4B59 
A quis AR 130 LBEQ AWD 280 MAN EQU SáDBE 
Õ programa a seguir co laço princi- 140 CMPA 42 290 SNK EQU 85178 
pal que completa O Jogo. 150 LBEQ DIE 300 SEA EQU S4CDE 
10 ORG 20932 160 DLL LDB 4100 310 RWD EQU S50F1 


320 DIE EQU 55050 
330 BAR EQU 54045 


Carregue a parte já digitada de Ava- 
lanche e monte esse programa no topo. 


10 ORG 19572 
20 JMP ALP 
30 ALP EQU S5lcd 


Tecle a instrução: 





EXEC 19426 
e o jogo irá começar! 









PREPARANDO A ROTINA 


A é carregado com 5, valor armaze- 
nado em 18258, para ajustar o atraso do 
sol. A posição de memória 18261, que 
contém a variável do salto, é carregada 
com 0. Garantimos, assim, que Willie 
não apareça saltando na tela. 

O processador vai para a rotina ELB 
e define os bits necessários para os ni- 
veis superiores do jogo. Segue, então, 
para a rotina MAN, que cuida do mo- 
vimento de Willie e, em seguida, salta 
para BAR, SNK, SEA e MOVSUN — 
rotinas que movimentam, respectiva- 
mente, a pedra, as cobras, o mar e o sol. 














O conteúdo da variável morte, em 
18252, é carregado no acumulador e 
comparado com 1. Se seu valor for igual 
a 1, Willie conquistou um prêmio. 
LBEQ faz o processador executar um 
longo desvio para a rotina que oferece 
a Willie sua recompensa. 

Se a variável morte não for igual a 
1, CMPA 2 verifica se seu valor é 2. 
A presença desse número indica que 
Willie está morto — o processador se 
desvia então para a rotina DIE, que to- 
ma todas as providências necessárias pa- 
ra os funerais. 





ROTINA DE ATRASO 


B é carregado com 100, funcionan- 
do como contador para o maior laço de 
atraso. Note que a posição de memória 
ocupada por 100 quando o programa é 
montado — $51EE — equivale ao byte 
decrementado na rotina do escore. 

A é apagado e decrementado, o que 
torna seu conteúdo, 255 igual a -1 na re- 


presentação binária. A instrução BNE 
verifica se A chegou a O; se ainda não 
chegou, é novamente decrementado. 
Caso contrário, o processador sai fora 
desse laço. Em seguida, decrementa B 
e salta para o laço interno, onde A é de- 
crementado. Isso é feito até que B tenha 
chegado a O. 

Em outras palavras: no início, O pro- 
cessador fica no laço 256 x 100 vezes, 
para tornar a execução mais lenta. Po- 
rém, quando Willie consegue uma re- 
compensa, O jogo se acelera, pois o pro- 
cessador fica nesse laço apenas 256 x 
99 vezes, ou 256 x 98 ou 256 x 97 e 
assim por diante. 





FORA DO LACO 


Para examinar o teclado, saliamos 
para a sub-rotina em 32774. Verificamos 
então se a tecla <BREAK> foi pres- 
sionada, comparando o valor recebido 
no acumulador com 3. 

Se a tecla não foi pressionada, a ins- 





tt o a mei 





trução BNE volta para dar prossegui- 
mento ao jogo. Caso contrário, o pro- 
cessador continua, encontra RTS e re- 
torna para o BASIC. 


FECHE O CÍRCULO 





Acrescentamos um último detalhe ao 
programa. Na rotina que seleciona a tela 
apropriada e ajusta o escore havia, orl- 
ginalmente, um RTS e duas instruções 
NOP. Elas foram usadas para reservar 
o espaço em que colocaríamos uma ins- 
trução de salto, que iria funcionar quan- 
do o jogo fosse executado pela primei- 
ra vez. Não podíamos introduzir essa 
instrução antes de escrever a rotina de 
acionamento. Agora que o programa es- 
tá pronto, montamos um JMP ALP na- 
quele endereço. Com isto, fechamos o 
circulo, completando Avalanche, nosso 
videogame em Assembler. 






















EEN 


O programa a seguir é o laço princi- 
pal que completa o jogo: 


10 orq 54101 

20 iq call 54603 
30 call -11136 
40 call 55564 

50 call -11318 
60 call -11266 
70 call -11380 
BO ld a, (-5201) 


90 cp À 

100 ip 2z,55506 
110 Cp 2 

120 jp 2,5539394 
130 ld b,50 
140 atr ld a,255 
150 dl dec a 
160 jr nz,dl 
170 djnz atr 
180 ld a,? 

190 call 321 
200 bit 4,a 
210 Jr nz,39 
220 ret 

2 30 end 


Quando essa rotina e o restante do 
programa já estiverem na memória, dê 
início ao jogo executando o pequeno 
programa BASIC: 


10 DEFUSA= -11681 







































Í | a 
| 
E á es gi 
] | 


20 A=USR(0) 
0 END 


Como você deve ter notado, esse pro- 
grama chama o endereço inicial da ro- 
tina que inicializa o jogo, publicada no 
artigo da página 969. 


ORDEM DE CHAMADA | 





O laço principal chama, nesta ordem, 
a rotina de movimentação de Willie, em 
54603; a rotina das pedras, em -11136; 
a rotina das cobras, em 55564; a rotina 
do mar, em-11318; a rotina da nuvem, 
em -11266, e a rotina das gaivotas, em 
=1 1380. 


PRÊMIO, MORTE OU VIDA 





Em seguida, a rotina verifica a cha- 
mada variável da morte. Ela é transfe- 
rida de - 5201 para o acumulador e com- 
parada com 1. Se este for o seu valor, 
a instrução jp z manda o processador 
para a rotina da recompensa, no ende- 
reço 55506. Essa rotina aumenta os pon- 
tos de Wilhe e seleciona um nivel maior 
de dificuldade. 

O conteúdo do acumulador é compa- 
rado com 2. Se ele contém esse valor, 
o processador é mandado para a rotina 
da morte, em 55334, Essa rotina enter- 
ra Wille e encerra a partida. 


CÂMARA LENTA 


Se instruíssemos o processador para 
executar continuamente esse laço, a ca- 
da volta ele chamaria todas as rotinas 
da memória com crescente velocidade, 
tornando o jogo impraticável. Para tor- 
nar a execução mais lenta, montamos 
dois laços de atraso, como já fizemos na 
rotina da morte. 





Co ar cóoicoDEMMGUNA MS 


B é carregado com 50, e A, com 255. 
A seguir, o conteúdo de A é decremen- 
tado. A instrução jr nz faz o processa- 
dor continuar a decrementar A, no la- 
ço dl, até que seu valor seja O. 

A instrução djnz decrementa o con- 
teúdo do registro B e faz o processador 
voltar ao rótulo atr e carregar À com 
255 de novo. Isso é feito até que B se 
reduza a 0. Portanto, o laço externo é 
executado cingiienta vezes, e o laço in- 
terno, 255 x 50 vezes. 

O registro B contém o valor 50 só 
quando o jogo começa. A medida que 
Willie recupera seu lanche, um novo va- 
lor é colocado no endereço ocupado por 
50 na instrução ld b. Se você voltar à ro- 
tina do escore, verá que o valor nesse en- 
dereço (54133) é decrementado cada vez 
que Willie recupera uma parte de seu 
lanche. Essa operação resulta, efetiva- 
mente, em uma alteração no próprio 
programa — ou seja, uma rotina altera 
outra rotina. Esse expediente só é reco- 
mendável quando seus efeitos forem 
controlados. 

Diminuindo o valor carregado em B, 
o processador executará o laço interno 
256 vezes menos, acelerando o jogo. 












e rop 





























FORA DO LAÇO 


Como todo bom programa, este tam- 
bém oferece ao usuário a alternativa de 
interromper a execução, sem ter que des- 
ligar o computador e perder tudo o que 
está na memória. 

Neste ponto do programa, pre- 
cisamos ver se <STOP> foi pres- 
sionada. Essa operação é idêntica à 
que executamos para checar se M 
ou N foram pressionadas na rotina 
de movimentação de Wilhe. 

O número 7 é carregado no acu- 
mulador e a rotina 321 da ROM é 
chamada. O número em A corres- 
ponde à linha da matriz do teclado 
nã qual está a tecla que desejamos 
verificar. Se alguma tecla dessa linha foi 
pressionada, a rotina 321 coloca o va- 
lor | no bit do acumulador correspon- 
dente a ela. 

A instrução bit 4,a examina o bit 4 
do acumulador, que corresponde à tes, 
cla <STOP>. Se ela não foi pressio- 
nada, a instrução jr nz, jg taz o proces- 
sador reiniciar o laço principal, jg. Ca- 
so contrário, o processador encontra a 
instrução ret e volta para o BASIC. 


8 








OBJETIVO DO JOGO 








a 2 O ROLO E A TINTA 
o) - SOMA DE VERIFICAÇÃO 
E NÍVEIS DE DIFICULDADE 





ESCORE 








Este divertido jogo é um bom treino 
para os pintores “de fim de semana”, 
Manejando o rolo, eles devem impedir 
que a tinta escorra pela parede 

e manche seu precioso carpete... 


Manchar o carpete de tinta é um dos 
pesadelos dos pintores domésticos. Eis 
aqui uma boa oportunidade para que 
aprimorem sua técnica de trabalho e dei- 
xem de fazer tanta sujeira € provocar 
tanta confusão na casa. 

O objetivo do jogo é impedir que a 
tinta, que escorre pela parede (a tela), 
chegue até o chão (linha inferior da te- 
la). Para isso, você deve movimentar um 
rolo de pintura (um sinal gráfico hori- 
zontal, na tela), usando as teclas de con- 
trole do cursor. 





O programa é apresentado em duas 
versões; uma para os microcomputado- 
res compatíveis com a linha Sinclair 
Spectrum (TK-90X), e outra, para os da 
linha TRS-Color. Ambas utilizam códi- 
go de máquina, para que os cálculos se- 
jam efetuados com a rapidez necessária. 

Os programas em código de máqui- 
na estão incluídos no programa em BA- 
SIC, na forma de listagens numéricas 
decimais, dentro de linhas DATA. O 
programa de carregamento vê se os có- 
digos foram digitados corretamente, por 
meio de somas de verificação (check- 
sum). Apesar disso, convém gravar O 
programa em fita ou disco antes de usá- 
lo, pois um só código errado poderá da- 
nificar o conteúdo da memória. 


1 CLEAR 28761: GOSUB 100 

& CLS : PRINT AT 8B,2;"DIGITE 
NIVEL DE DIFICULDADE"'TAB RB 
:*€1> MUITO FACIL""TAB 8;"<2 
> FACIL"'TAB 8;"<3> NORMAL” * 
TAB B;"<4> DIFICIL"'TAB 8B;*" 
5> IMPOSSIVEL" 





6 LET DS=INKEYS: IF D5<"1” 
OR D$>"5" THEN GOTO 6 


7 POKE 28951, ((DS="1")*200)+. 


((D$="2")*175)+((D$="3")*80) 
+ ((D$="4")*40)+(DS="5") 
10 BORDER O: PAPER 7: INK 2: 
CLS : LET a$="": FOR n=) TO 
32: LET aS=as+" ": NEXT n 
14 POKE 28953,0: FOR n=1 TO 4 
+ PRINT PAPER 2;a5;: NEXT n 
15 FOR N=19 TO 21: PRINT 
PAPER G;AT N,0:;AS: NEXT N 
16 PLOT 0,143: DRAW 255,0 
20 BRAND USAR 28672: RAND USAR 
28702 
40 PRINT AT 12,7; FLASH 1; 
PAPER 5; INK 0;" FIM D E 
JOGO" FLASH O;AT 14,7 
|: PAPER 7;"PLACAR FINAL ";: 
LET B$="": FOR N=28945 TO 
28950: LET BS$=BS+CHAS (PEEK N 
): NEXT N: PRINT B$5 
45 FOR N=1 TO 500: NEXT N 
50 IF INKEYS="" THEN GOTO 50 
60 AUN 5 
100 LET L=500: RESTORE L: 
N=28672 TO 289961 STEP 8 
110 LET T=0: FOR D=0 TO 7: 
READ A: POKE N+D,A: LET T=T+A: 
NEXT D 
120 READ A: IF A<>T THEN 
PRINT "ERRO NOS DADOS DA LINHA 
":L: STOP 
130 LET L=L+10: NEXT N: RETURN 


500 DATA 33,34,113,6,0,62,32, 
119,399 

510 DATA 35,16,252,33,128,100, 
34,32,630 

520 DATA 113,33,48,48,34,17, 
113,34,440 

530 DATA 19,113,34,21,113,201, 
205,228,934 

540 DATA 112,89,22,0,33,34,113 
,/25,428 

550 DATA 126,60,254,156,200, 
245,229,205,1475 

560 DATA 176,34,209,193,245, 
126,254,255,1492 

570 DATA 40,2,120,18,241,254,0 
71,746 

580 DATA 62,128,40,4,203,31,16 
,1252,736 

590 DATA 70,176,119,58,25,113, 
214,64,839 

600 DATA 50,25,113,194,194,112 
,237,75,1000 

610 DATA 32,113,62,0,33,26,113 
(197,576 


FOR 
















620 DATA 205,214,112,193,62, 
223,219,254,1482 

630 DATA 245,203,31,203,31,48, 
16,203,980 

640 DATA 31,48,15,203,31,48,14 
,203,593 

650 DATA 31,48,13,241,195,156, 
112,12,808 

660 DATA 24,7,4,24,4,5, 
670 DATA 13,241,121,254, 
113,120,1050 

680 DATA 254,150,48,8,254,32, 
56,4,806 

690 DATA 237,67,32,113,237,75, 
32,113,906 

700 DATA 197,33,29,113,205,214 
1412,193,1096 

710 DATA 121,230,248,79,89,22, 
0,33,822 

720 DATA 34,113,25,72,6,24,126 
/185,585 

730 DATA 32,5,61,119,205,252, 
112,35,821 

740 DATA 16,244,42,23,113,45, 
2,293, 768 

750 DATA 37,242,197,112,62,127 
,219,254,1250 

760 DATA 203,31,218,30,112,201 
,229,120,1144 

770 DATA 205,176,934,235,225,1, 
3,0,879 

780 DATA 237,176,235,201,42, 
118,92,237,1338 

7/90 DATA 91,120,92,25.237,90, 
B4,93,832 

800 DATA 41,41,25,41,41,41,25, 
34,289 

810 DATA 118,92,76, 
17, 22,984 

820 DATA 113,26,60,254, 
162,611 

830 DATA 48,18,27,24,244,18B, 
241,209,829 


24 ,1,93 
240,48 


201,213,245 


58,32,6 


B40 DATA 201,48B,48,46B,48,4B,48B 4 
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,200,689 

850 DATA 0,64,0,0,0,255,255, 
255,829 

860 DATA 128,100,36,36,37,37, 
35,35,444 

O jogador controla o rolo por meio 
das teclas Y, U, Ie O. O programa em 
código de máquina é responsável pelo 
movimento do rolo e dos pingos de tin- 
ta, além de cuidar do escore (número de 
pontos marcados). 

No programa em BASIC, a linha 1 
reserva espaço para o programa em có- 
digo de máquina, por intermédio do co- 
mando CLEAR, € chama a rotina que 
começa na linha 100, Esta lê os códigos 
numéricos correspondentes ao progra- 
ma em linguagem de máquina e os co- 
loca na memória reservada (usando co- 
mandos POKE, na linha 110). 





A soma de verificação é armazenada 
na variável T, que é checada a cada oi- 
to códigos pela linha 120 do programa. 
Essa linha informa se o valor da soma 
é igual ao primeiro número lido na li- 
nha DATA. Em caso afirmativo, o pro- 
grama continua até ler todos os códigos, 
que estão armazenados da linha 500 à 
linha 860. 

As linhas 5 a 7 inicializam o nível de 
dificuldade — que pode ser fácil, razoa- 
velmente fácil, normal ou dificil — e co- 
locam o valor correspondente de atraso 
de tempo nas locações absolutas do pro- 
grama em código de máquina, por meio 
de comandos POKE, 

As linhas 10 a 16 montam a tela grá- 
fica e a 20 chama a rotina em linguagem 
de máquina. As linhas 40 a 60 finalizam 
o jogo é imprimem o escore. 


à a BRRERRAS 


10 CLEAR 200,15799:CLS 

20 FOR K=0 TO 13:T=0:FOR J=0 TO 
25:READ A:T=T+A 

30 POKE 15800+K*26+J,A 

40 NEXT:READ A:IF T<>A THEN PRI 

NT"ERRO NOS DADOS DA LINHA” ;100 

0+K*10:END ELSE NEXT 

50 CLS:PRINT €2," ESCOLHA NIVEL 
DE DIFICULDADE” 

60 PRINT €200,"1 - FACIL”:PRINT 
2212,"2 - SIMPLES": PRINT 6264, 
"3 - MEDIO” :PRINT €296,"4 - DIF 
ICIL”:PRINT €328,"5 - IMPOSSIVE 

E 

70 AS=INKEYS:IF AS<"1” OR AS>"5 
” THEN 70 

B0 LU=VAL(AS):POKE 16162,6-LV:P 

- OKE 16164,128+64*(LV>2): POKE 16 


| h - “sa - + 
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A tinta escorrendo na tela do TRS-Color. 


167,RND(256)-1 

90 PMODE 3,1:PCLS 2Z:SCREEN 1,0 
100 COLOR 4:LINE(0,0)-(2255,0), 
PSET:COLOR 3:LINE(0,168)-(255.,1 
91), PSET,BF 

110 DEFUSR0=15800:S=USRO (0) 

120 S8C=0:CLS:FOR K=5 TO O STEP 
-1:SC=SC*256+PEEK (16173+K) :NEXT 
130 PRINT €8,"VOCE GANHOU”; SC 
140 PRINT 6161," QUALQUER TECLA 
PARA RECOMECAR" :AS=INKEYS 

150 IF INKEYS="" THEN 150 ELSE 
50 

1000 DATA 127,63,33,127,63,37,7 
9,95,2593,63,45,253,63,47,253,63 
,49,142,19, 14,191,63,51,158,186 
,48,2585 

1010 DATA 137,1,0,191,63,41,48, 
137,19,223,191,63,43,204,0,128, 
142,63,53,167,128,90,38,251,141 
,129,2591 

1020 DATA 182,63,37,176,63,36,1 
83,63,37,38,243,141,119,23,0,14 
5,190,63,34,48,31,38,252,125,63 
(/33,2426 

1030 DATA 39,226,57,206,63,53,1 
41,59,196,127,52,4,51,197,166,1 
96,198,32,61,211,186,31,1,53,4, 
31,2641 

1040 DATA 152,84,84,58,230,132, 
38,1,57,132,3,64,139,3,198,3,74 
,43,4,88,88,32,249,234,132,231, 
2553 

1050 DATA 132,108,196,166,196,1 
29,168,37,5,134,1,183,63 33,57, 
190,63,38,79,95,179,63,38,36,2, 
48,2439 

1060 DATA 31,179,63,38,36,2,48, 
31,195,255,254,36,2,48,1,52,16, 
163,225,37,3,131,0,1,253,63,216 
3 

1070 DATA 38,57,134,247,127,63, 
40,120,63,40,183,255,2,246,255, 
0,193,247,38,3,124,63,40,26,1,7 
J,2678B 

1080 DATA 129,127,34,233,57,190 
,63,51,198,3,134,85,167,128,90, 
38,251,190,63,51,116,63,40,36,1 
0,31,2578 

1090 DATA 16,203,3,196,31,39,2, 
48,1,116,63,40,36,8,31,16,196,3 


1100 DATA 8,188,63,43,34,3,48,1 
36,32,116,63,40,36,14,188,63,41 
,37,9,48,136,224,52,16,141,13,1 
792 

1110 DATA 53,16,191,63,51,198,3 
,111,128,90,38,251,57,31,16,142 
,63,53,147,186,52,4,196,31,88,8 


8,2347 


1120 DATA 48,133,53,4,88,73,88, 
73,31,88,73,137,92,134,12,225,1 
32,38,4,106,132,141,6,48,1,74,2 
034 

1130 DATA 38,243,57,52,22,142,6 
3,45,198,6,26,1,166,132,137,0,1 
67,128,90,38,247,53,150,1,3,0,2 
205 


O jogador controla q rolo de tinta pe- 
las teclas de movimentação do cursor 
(flechas). O programa em código de mã- 
quina é responsável pelo movimento do 
rolo e dos pingos de tinta, além de cui- 
dar do escore (número de pontos mar- 
cados). Ele verifica se alguma das teclas 
de controle do cursor está sendo pres- 
sionada e desloca o rolo de tinta na di- 
reção indicada. Se o jogador consegue 
deslocar um pingo de tinta, um atraso 
de tempo é introduzido e o escore é au- 
mentado. 

No programa em BASIC, a linha 10 
reserva espaço para o programa em có- 
digo de máquina através do comando 
CLEAR. As linhas 20 a 40 lêem os có- 
digos numéricos correspondentes ao 
programa em linguagem de máquina e 
os coloca na memória reservada (usan- 
do comandos POKE, na linha 30). 

A soma de verificação é armazenada 
na variável T, que é checada pela linha 
40 do programa. Essa linha informa se 
o valor da soma é igual ao primeiro nú- 
mero lido na linha DATA. Em caso afir- 
mativo, o programa continua até ler to- 
dos os códigos, que estão armazenados 
nas linhas 1000 a 1130. 


A linhas 50 a 80 inicializam o nível 
de dificuldade — que pode ser simples, 
médio, difícil e '“impossível”” — e colo- 
cam o valor correspondente de atraso de 
tempo nas locações absolutas do progra- 
ma em código de máquina, por meio de 
comandos POKE. 

A linha 100 monta a tela gráfica € 
a linha 110 chama a rotina em lingua- 
gem de máquina. 

As linhas 120 a 150 finalizam o jogo 
e imprimem o escore. A seguir, O pro- 
grama pergunta ao jogador se ele dese- 
ja participar de mais uma rodada. 


f 


) 
| 1 | i | | =— | T T iefi | 
EPP 


ie e do O ea o ai a E A, à 


| 


















































À armazenagem e a manipulação de 
datas em BASIC apresentam problemas 
nem sempre fáceis de resolver. 

Com as rotinas aqui fornecidas, você 
simplificará bastante seu trabalho. 


Mais cedo ou mais tarde, o progra- 
mador vai ter que trabalhar com cálcu- 
los de datas. Como no BASIC não há 
nenhuma função que facilite a realiza- 
ção desses cálculos, a tarefa poderá en- 
volver algumas complicações, devido à 
própria irregularidade do sistema de da- 
tação em uso — meses com número di- 
ferente de dias, anos bissextos etc. 

Os principais problemas de cálculo e 
manipulação de datas, que surgem so- 
bretudo em programas para aplicações 
financeiras e/ou comerciais, são: 

— representação interna de datas na 
memória do computador; 

— checagem da validade de uma data; 
— determinação do dia da semana pa- 
ra uma data e do número de dias com- 
preendido entre duas datas; 

— cálculo de data corrida a partir de 
certa data de calendário. 

Mostraremos em INPUT alguns tru- 
ques que simplificam essas manipu- 
lações. 





ARMAZENAGEM DE UMA DATA 


Há diversos tipos de notação para da- 
tas. A mais comum é a data pregoria- 
na, ou data de calendário, que tem a for- 
ma: dia/mês/ano (D/M/A). 

Essa data pode ser armazenada no 
micro de diferentes maneiras. A mais di- 
reta usa o formato de oito bytes: 


DD/MM/AA 


Em conseqiiência, deve ser armaze- 
nada em uma variável literal (alfanumé- 
rica), e não em uma variável numérica, 
ocupando, ao todo, oito bytes. 

Podemos reduzir o espaço para a ar- 
mazenagem suprimindo os sinais de se- 
paração (barras ou pontos), já que é 
possivel inseri-los novamente no mo- 
mento de exibir ou imprimir uma data. 
Temos, então, o formato de seis bytes: 








DDMMAA 


Armazenando as datas como são vi- 
sualizadas, é impossível ordená-las. Co- 
locar um conjunto de datas em ordem 
ascendente, por exemplo, resultará em 
uma enorme confusão: uma data como 
010187 virá antes de 011286. 

Por essa razão, é preferivel usar o 
formato sueco, já adotado universal- 
mente em sistemas de computação: 


AAMMDD 


No exemplo acima, 861201 aparece- 
rá, corretamente, antes de 870101. 

Eis aqui duas rotinas para converter 
uma notação em outra. A variável N$ 
representa uma data em formato nor- 
mal, de oito bytes; I$, uma data em for- 
mato invertido, de seis bytes. 


Conversão de formato normal para for- 
mato invertido: 


TTicur 


1000 15=MIDS (N$,7,2)+MIDS(NS,4, 
2) +MIDS (NS,1,2) :RETUAN 


1000 LET IS=NS(7 TO)J+NS(4 TO 5 
J+NS(1 TO 2) 
1010 RETURN 





Lembre-se de dimensionar N$(8) e 
1$(6) no começo do programa. 


Conversão de formato invertido para 
formato normal; 


TITLE 


1100 NS=MIDS(15,5)+"/"+MIDS (IS, 
3,2)+"/"+MIDS (15,1,2) :RETURN 


1100 LET NS=IS(5 TO)J+"/"+IS(3 
TO 4)+"/"+IS(1 TO 2) 
1110 RETURN 


Seis bytes podem significar muito es- 
paço de memória para certas aplicações, 
por exemplo, para um banco de dados, 
em que cada registro deve reservar 
espaço para uma ou mais datas. 

Podemos reduzir ainda mais o espa- 


LR Da po o Coma BR 
OPERAÇÕES 


= CONVERSÃO DO FORMATO 
E COMPRESSÃO DE DATAS 
= TESTE DE VALIDADE 
E) DATA CORRIDA 
a INTERVALO ENTRE DATAS 


ço de memória ocupado por uma data 
de calendário, mas isso envolve algumas 
manipulações que codificam a data, im- 
pedindo sua exibição imediata (sem a 
prévia decodificação). 

Um dos formatos codificados de da- 
tas é o formato de três bytes: 


CHRS (AA) +CHRS (MM) +CHRS (DD) 


A data será armazenada em uma ca- 
deia literal de três bytes, no formato sue- 
co; mas não poderá ser impressa ainda. 
Seguem-se duas rotinas que realizam as 
conversões. Nelas, D$ é uma variável li- 
teral com uma data em oito bytes, e C$, 
uma variável com uma data em forma- 
to comprimido de três bytes. 


Compressão de oito para três bytes: 


TTirr 
1200 CS=CHRS (VAL (MIDS (D5,7,2))) 


+CHRS (VAL (MIDS (D$,4,2)))J+CHRS(V 
AL (MIDS (D$,1,2))):RETURN 


1200 LET CS=CHRS VAL DS(7 TO 8) 

+CHAS VAL DS(4 TO 5) + CHAS VAL 
D$S(1 TO 2) 

1210 RETURN 


Não se esqueça de dimensionar C$(3) 
e D$(8), no começo do programa. 


Descompressão de três para oito bytes: 


TIiTIAro 

1300 DS=RAIGHTS (STR$S (ASC (MIDS (CS 
,2))),2)+"/"+RIGHTS (STARS (ASC (MI 
DS (C$,3))),2)+"/"+RIGHTS (STARS (A 
SC(C5)),2):RETURN 


1300 LET D$=STR$S CODE CsS(3 To 3 
J+STRS CODE CS(2 TO 2) +STR$S COD 
E CS(i TO 1) 
1310 RETURN 

Essa técnica tem só uma desvanta- 
gem: na armazenagem de datas compri- 
midas em três bytes em arquivos segiiên- 
ciais (fita ou disco), a transmissão será 
truncada sempre que surgir um dia 13 
(pois CHR$(13) é o código ASCII para 
fim de linha). Isto não ocorrerá com ar- 
quivos de acesso aleatório. 











Nada impede que se armazene uma 
data de calendário em formato numéri- 
co — o que é até desejável em certas 
aplicações. Porém será desperdício de 
memória, mesmo que usemos variáveis 
inteiras (que ocupam só dois bytes de es- 
paço cada no TRS-80, TRS-Color, Ap- 
ple, TK-2000 e MSX; o ZX-Bl e o Spec- 
trum não oferecem essa possibilidade). 

A armazenagem de uma data de ca- 
lendário em três variáveis inteiras — por 
exemplo, D, M e A — ocupará oito 
bytes. Podemos armazená-las em uma 
variável de precisão simples: 


DT = A * 10000 + M * 100 + D 
Veja os exemplos seguintes: 
Data DT 


01/01/47 470.101 
31/12/87 871.231 


Note que DT não pode ser uma va- 
riável inteira, pois esta não aceitaria os 
números maiores. Assim, ficamos, de 
novo, com seis bytes por data. 





“VALIDADE DE UMA DATA 


Uma boa prática de programação 
consiste em testar a validade da data de 
calendário que foi entrada pelo teclado, - 
checando separadamente o dia, o mês 
e o ano. | 

Eis aqui uma rotina simples para teste 
de uma data entrada no formato de o1- 
to bytes (variável DS): 


TITS ata 


1500 E=0:M$="312931303130313130 
313031” 
1510 IF LEN(DS)<>8 THEN E=1:RET 


URN 

1520 M=VAL (MIDS (D$,4,2)):IF M<1 
OR M>13 THEN E=1: RETURN 

1530 D=VAL (MIDS (D$S,1,2)):IF D<S1 
OR D>VAL (MIDS (MS, (M-1)*2+1,2)) 
THEN 1590 

1550 RETURN 


1500 LET M$="312931303130313130 
313031” 


1505 LET E=0 

1510 IF LEN(D$S)<>8 THEN GOTO 15 
60 

1520 LET M=VAL DS(4 TO 5) 

1525 IF M<l OR M>13 THEN GOTO 1 
560 

1530 LET D=VAL D$S(I TO 2) 

1535 IF D<Xl OR D>VAL MS((M-1)*2 


+1 TO (M-1)*2+2) THEN GOTO 1590 
1550 RETURN 
1590 LET E=1 
1600 RETURN 


Co ra rroommadomSE OD 


Se a variável E retornar igual a 0, a 
data é válida; se retornar iguala 1, hou- 
ve erro de entrada. 






A DATA CORRIDA 


Para muitas das técnicas de cálculo: 
de funções relacionadas a datas, é pre- 
ciso saber o dia do ano de certa data de 
calendário. Isso caracteriza a data cor- 
rida, composta do ano e do dia do ano 
(um número de 1 a 366). Por exemplo, 
a data corrida para 14 de maio de 1981 
é 134/81. 

Esta sub-rotina calcula a data corri- 
da a partir de uma data de calendário 
D$, em formato de oito bytes. O resul- 
tado será armazenado em N. 


TITS 


1600 M5$="0000310590891201501812 
12242273303334” 

1605 D%=VAL (MIDS (DS,1,2)) :ME=VA 
L (MIDS (D$,4,2)):At=VAL (MIDS (DS, 
7,.2)) 

1610 Nº=VAL (MIDS (MS, (M$-1)*3+1, 
3))+D$ 

1620 IF M$>2 AND (At AND NOT-4) 
=0 THEN N3=N&+1 

1630 RETURN 


1600 LET M$="000031059089120150 
181212242273303334” 

1605 LET D=VAL DS(1 TO 2) 

1606 LET M=VAL DS(4 TO 5) 

1607 LET A=VAL DS(7 TO 9) 

1610 LET N=VAL MS((M-1)*3+1 TO 
(M-1)*3+3)+D 

1620 IF M>Z AND (A AND NOT-4)=0 
THEN LET N=N+1 

1630 RETURN 


A variável M$, na linha 1600, con- 
tém o número do dia no ano equivalen- 
te ao primeiro dia de cada mês, menos 
|, para ano não bissexto. As variáveis 
D MeA são extraídas da variável DS, 
que contém a data de calendário. Na li- 
nha 1610, o número de dias correspon- 
dente à data D,M,A é calculado 
somando-se D ao número que se obtém 
extraindo-se do string M$ o valor para 
o primeiro dia do mês M. 

Finalmente, a linha 1620 verifica se 
o mês é março ou um dos meses que O 
sucedem e se o ano é divisível por 4 (ano 
bissexto). Nesse caso, acrescenta-se | ao 
número do dia, para compensar o fato 
de fevereiro ter 29 dias. O emprego, 
pouco usual, da expressão lógica AND 
NOT funciona como teste do resto da 
divisão por 4. 

A rotina só pode ser usada para Os 
anos de 1901 a 1999, pois o cálculo de 
anos bissextos não funciona para sécu- 


los ímpares — a não ser que o ano em 
questão seja divisível por 400. 


DIAS ENTRE DUAS DATAS 





O modo mais fácil de determinar o 
número de dias transcorridos entre duas 
datas de calendário consiste em calcu- 
lar a data corrida de cada uma e obter 
a sua diferença mais 1. A operação fun- 
cionará bem se as datas forem do mes- 
mo ano; caso contrário, dará resultados 
errados. 

Por isso, devemos obter um outro 
número (chamado data juliana), que le- 
va em conta o total de dias entre uma 
data-base, fixa, e a data de calendário 
que especificamos. Para simplificar O 
cálculo, multiplicamos o ano por 365, 
de forma que a data-base passa a ser 
1900; depois, somamos o número de 
dias referente aos anos bissextos entre 
1900 e o ano atual. 

A próxima sub-rotina calcula a dife- 
rença entre duas datas, entre 1901 € 
1999. Adicione-a à sub-rotina anterior, 
que começa na linha 1600. 


TITS 

1700 D$=DIS:COSUB 1600:Nl=N%+ 
AS*365+INT((AS-1)/4) 

1710 D$=D2$:GOSUB 


1600 :N2=N2+AS*365+INT((AS-1)/4) 
1720 P=INT(N2-N1) : RETURN 


1700 LET D$=D1S 

1705 GOSUB 1600 

1706 LET NI=N+A*365+INT 
1710 LET D$=D25 

1715 GOSUB 1600 

1716 LET NZ2=N+A*365+INT 
1720 LET P=INT N2-N1 
1725 RETURN 


A sub-rotina aceita como argumen- 
tos duas datas, DIS e D2$, no formato 
de oito bytes (DD/MM/AA), e retorna 
o resultado armazenado em P. 

Para testá-la, acrescente as seguintes 
linhas: 


asd ISS 


10 PRINT "PRIMEIRA DATA (DD /MM/ 
AA) "; 
20 INPUT 
30 PRINT 
AA) 
40 INPUT D25S 
50 GOSUB 1700 
60 PRINT EP 
70 GOSUB 10 


(A-1)/4 


(A-1)/4 


DIS 
"SEGUNDA DATA (DD/MM/ 


Use o programa para saber quantos 
dias você viveu até hoje! 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





NInsnENO PRÓXIMO NÚMERONEEEEHI 


APLICAÇÕES 
Ferramentas para o Spectrum. Comandos extras. Renumeração 
e autonumeração de linhas. Eliminação em bloco. 


PERIFÉRICOS 
Controle de robôs por computador. Inteligência Artificial. 
Linguagens de controle. Sentidos robóticos. Robôs móveis. 


LINGUAGENS 
Raízes e desenvolvimento de novas linguagens. Evolução. 
Linguagens imperativas e funcionais. A quarta geração. 


CÓDIGO DE MÁQUINA 
Listagem completa de Avalanche. Correção de erros. 
Teste do conjunto. Alterações. 





